object frmAddToCash: TfrmAddToCash
  Left = 312
  Top = 175
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #1053#1086#1074#1072#1103' '#1087#1088#1086#1074#1086#1076#1082#1072
  ClientHeight = 223
  ClientWidth = 400
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  DesignSize = (
    400
    223)
  PixelsPerInch = 96
  TextHeight = 13
  object lblPayDate: TLabel
    Left = 8
    Top = 12
    Width = 81
    Height = 13
    Caption = #1044#1072#1090#1072' '#1087#1088#1086#1074#1086#1076#1082#1080'*'
  end
  object lblnumDoc: TLabel
    Left = 8
    Top = 42
    Width = 68
    Height = 13
    Caption = #8470' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  end
  object lblReasonPay: TLabel
    Left = 8
    Top = 72
    Width = 106
    Height = 13
    Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072'*'
  end
  object lblPaySumm: TLabel
    Left = 8
    Top = 102
    Width = 38
    Height = 13
    Caption = #1057#1091#1084#1084#1072'*'
  end
  object Label1: TLabel
    Left = 8
    Top = 132
    Width = 80
    Height = 13
    Caption = #1054#1090' '#1082#1086#1075#1086' / '#1050#1086#1084#1091'*'
  end
  object lblIdFromWhom: TLabel
    Left = 122
    Top = 152
    Width = 260
    Height = 13
    Caption = #1042' '#1101#1090#1086' '#1087#1086#1083#1077' '#1089#1086#1093#1088#1072#1085#1103#1077#1090#1089#1103' ID '#1074#1099#1073#1088#1072#1085#1085#1086#1075#1086' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 204
    Width = 400
    Height = 19
    Panels = <
      item
        Text = #1050#1072#1089#1089#1080#1088
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object dePayDate: TcxDateEdit
    Left = 120
    Top = 8
    Width = 137
    Height = 21
    Properties.DateButtons = [btnNow]
    Properties.Kind = ckDateTime
    TabOrder = 0
  end
  object teNumDoc: TcxTextEdit
    Left = 120
    Top = 38
    Width = 137
    Height = 21
    TabOrder = 1
  end
  object teReasonPay: TcxTextEdit
    Left = 120
    Top = 68
    Width = 265
    Height = 21
    TabOrder = 2
  end
  object cePaySumm: TcxCurrencyEdit
    Left = 120
    Top = 98
    Width = 137
    Height = 21
    Properties.AssignedValues.MaxValue = True
    Properties.DisplayFormat = ',0.00;-,0.00'
    Properties.Nullable = False
    TabOrder = 3
  end
  object btnOk: TButton
    Left = 232
    Top = 168
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #1055#1088#1080#1085#1103#1090#1100
    Default = True
    ModalResult = 1
    TabOrder = 5
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 320
    Top = 168
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = #1054#1090#1084#1077#1085#1072
    ModalResult = 2
    TabOrder = 6
  end
  object lbFromWhom: TcxLookupComboBox
    Left = 120
    Top = 128
    Width = 265
    Height = 21
    Properties.KeyFieldNames = 'id_worker'
    Properties.ListColumns = <
      item
        FieldName = 'fio'
      end>
    Properties.ListOptions.GridLines = glNone
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsWromWhom
    Properties.OnEditValueChanged = lbFromWhomPropertiesEditValueChanged
    TabOrder = 4
  end
  object dsWromWhom: TDataSource
    DataSet = adsFromwhom
    Left = 16
    Top = 168
  end
  object adsFromwhom: TADOQuery
    Connection = DM.Conection
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      
        'SELECT id_worker, IIF(NOT lastname IS NULL, Trim(lastname), '#39#39') ' +
        ' + '#39' '#39' +  IIF(NOT name IS NULL,Trim(name), '#39#39')  + '#39' '#39'+ IIF(NOT p' +
        'atronimyc IS NULL,Trim(patronimyc), '#39#39') as fio'
      'FROM workers '
      'WHERE worker_type <> 2 '
      '             AND isoldWorker = false'
      'ORDER BY lastname, name, patronimyc ')
    Left = 56
    Top = 168
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = lblIdFromWhom
        Properties.Strings = (
          'Caption')
      end>
    StorageName = 'cxPropertiesStore1'
    StorageType = stRegistry
    Left = 96
    Top = 168
  end
end
